home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Utilities / In⁄Out™ / In_Out™ / card_13972.txt < prev    next >
Encoding:
Text File  |  1990-04-09  |  9.3 KB  |  448 lines
  1. -- card: 13972 from stack: in
  2. -- bmap block id: 14623
  3. -- flags: 0000
  4. -- background id: 2649
  5. -- name: dssample
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 6005
  11. -- rect: left=198 top=224 right=250 bottom=432
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: 2000
  25. -- rect: left=357 top=260 right=282 bottom=419
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: New Button
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   go to card SLBnames
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 3 (button)
  42. -- low flags: 00
  43. -- high flags: 2000
  44. -- rect: left=429 top=260 right=282 bottom=491
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: New Button
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   go to card "SLBnames"
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 5 (field)
  61. -- low flags: 01
  62. -- high flags: 0002
  63. -- rect: left=427 top=47 right=67 bottom=460
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 16
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: In
  72.  
  73.  
  74. -- part 6 (field)
  75. -- low flags: 01
  76. -- high flags: 0002
  77. -- rect: left=459 top=47 right=67 bottom=495
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 16
  82. -- text size: 12
  83. -- style flags: 4096
  84. -- line height: 16
  85. -- part name: Out
  86.  
  87.  
  88. -- part 7 (button)
  89. -- low flags: 00
  90. -- high flags: 2000
  91. -- rect: left=20 top=117 right=132 bottom=164
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: New Button
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   put "I am out of the office" into GOO
  103.   put "OUT" into card field "In1"
  104.   put the time into card field "tm"
  105.   put the date into card field "dt"
  106.   put empty into card field "drippy"
  107.   put GOO into first line of card field shortcut
  108.   click at loc of card button OUTB
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 8 (button)
  114. -- low flags: 00
  115. -- high flags: 2000
  116. -- rect: left=20 top=101 right=116 bottom=164
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: New Button
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   put "I am at Lunch" into GOO
  128.   put "OUT" into card field "In1"
  129.   put the time into card field "tm"
  130.   put the date into card field "dt"
  131.   put GOO into first line of card field shortcut
  132.   put "one hour" into card field "drippy"
  133.   click at loc of card button OUTB
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 9 (button)
  139. -- low flags: 00
  140. -- high flags: 2000
  141. -- rect: left=20 top=85 right=100 bottom=164
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: New Button
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   put "I am IN" into GOO
  153.   put "IN" into card field "In1"
  154.   put the time into card field "tm"
  155.   put the date into card field "dt"
  156.   put GOO into first line of card field shortcut
  157.   put empty into card field "drippy"
  158.   click at loc of card button INB
  159.  
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part 10 (field)
  165. -- low flags: 00
  166. -- high flags: 0002
  167. -- rect: left=198 top=116 right=184 bottom=491
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 0
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: shortcut
  176.  
  177.  
  178. -- part 11 (button)
  179. -- low flags: 00
  180. -- high flags: 0000
  181. -- rect: left=427 top=47 right=67 bottom=460
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: INB
  190. ----- HyperTalk script -----
  191. on mouseDown
  192.   set TextStyle of card field In to Shadow
  193.   set TextStyle of card field Out to plain
  194. end mouseDown
  195.  
  196.  
  197.  
  198. -- part 12 (button)
  199. -- low flags: 00
  200. -- high flags: 0000
  201. -- rect: left=459 top=47 right=67 bottom=495
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: OUTB
  210. ----- HyperTalk script -----
  211. on mouseDown
  212.   set TextStyle of card field In to plain
  213.   set TextStyle of card field Out to shadow
  214. end mouseDown
  215.  
  216.  
  217.  
  218. -- part 13 (field)
  219. -- low flags: 01
  220. -- high flags: 0000
  221. -- rect: left=171 top=48 right=63 bottom=201
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: In1
  230.  
  231.  
  232. -- part 14 (field)
  233. -- low flags: 01
  234. -- high flags: 0000
  235. -- rect: left=219 top=48 right=63 bottom=296
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 0
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: tm
  244.  
  245.  
  246. -- part 15 (field)
  247. -- low flags: 01
  248. -- high flags: 0000
  249. -- rect: left=301 top=48 right=63 bottom=382
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: dt
  258.  
  259.  
  260. -- part 16 (button)
  261. -- low flags: 00
  262. -- high flags: 2000
  263. -- rect: left=18 top=238 right=258 bottom=180
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: New Button
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   show card field "SAS"
  275.   repeat until the mouse is down
  276.     show card field "SAS"
  277.   end repeat
  278.   hide card field "SAS"
  279. end mouseUp
  280.  
  281.  
  282.  
  283. -- part 17 (button)
  284. -- low flags: 00
  285. -- high flags: 2000
  286. -- rect: left=18 top=266 right=286 bottom=180
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: New Button
  295. ----- HyperTalk script -----
  296. on mouseUp
  297.   show card field "RS"
  298.   repeat until the mouse is down
  299.     show card field "RS"
  300.   end repeat
  301.   hide card field "RS"
  302. end mouseUp
  303.  
  304.  
  305.  
  306. -- part 18 (field)
  307. -- low flags: 00
  308. -- high flags: 0000
  309. -- rect: left=282 top=72 right=94 bottom=491
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 0
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: drippy
  318.  
  319.  
  320. -- part 20 (button)
  321. -- low flags: 00
  322. -- high flags: 2000
  323. -- rect: left=199 top=74 right=93 bottom=278
  324. -- title width / last selected line: 0
  325. -- icon id / first selected line: 0 / 0
  326. -- text alignment: 1
  327. -- font id: 0
  328. -- text size: 12
  329. -- style flags: 0
  330. -- line height: 16
  331. -- part name: New Button
  332. ----- HyperTalk script -----
  333. on mouseDown
  334.   put line 1 of card field "drippy" into zapper
  335.   put "12:00 AM,1:00 AM,2:00 AM" into qoo
  336.   put ",3:00 AM" into woo
  337.   put ",4:00 AM,5:00 AM,6:00 AM,7:00 AM" into eoo
  338.   put ",8:00 AM,9:00 AM,10:00 AM" into roo
  339.   put ",11:00 AM,12:00 PM" into too
  340.   put ",1:00 PM,2:00 PM,3:00 PM" into yoo
  341.   put ",4:00 PM,5:00 PM,6:00 PM,7:00 PM,8:00 PM,9:00 PM" into uoo
  342.   put ",10:00 PM,11:00 PM" into ioo
  343.  
  344.   put qoo&woo&eoo&roo&too&yoo&uoo&ioo into MENU
  345.  
  346.   Get HPopupMenu(menu,0,1,280)
  347.  
  348.   if it is not zero then
  349.  
  350.     Put Item 1 of it into TheLine
  351.     if TheLine is not empty then
  352.       put theLine into card field "Drippy"
  353.     else
  354.       put zapper into card field "Drippy"
  355.     end if
  356.  
  357.     If TheLine=1 then
  358.       put it into card field "Produ"
  359.     end if
  360.  
  361.   end if
  362.  
  363. end mouseDown
  364.  
  365.  
  366.  
  367. -- part 21 (field)
  368. -- low flags: 80
  369. -- high flags: 0004
  370. -- rect: left=1 top=303 right=339 bottom=511
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 1
  374. -- font id: 20
  375. -- text size: 18
  376. -- style flags: 0
  377. -- line height: 24
  378. -- part name: foo
  379.  
  380.  
  381. -- part 22 (field)
  382. -- low flags: 80
  383. -- high flags: 0004
  384. -- rect: left=8 top=158 right=189 bottom=506
  385. -- title width / last selected line: 0
  386. -- icon id / first selected line: 0 / 0
  387. -- text alignment: 1
  388. -- font id: 20
  389. -- text size: 18
  390. -- style flags: 0
  391. -- line height: 24
  392. -- part name: SAS
  393.  
  394.  
  395. -- part 23 (field)
  396. -- low flags: 80
  397. -- high flags: 0004
  398. -- rect: left=8 top=158 right=189 bottom=506
  399. -- title width / last selected line: 0
  400. -- icon id / first selected line: 0 / 0
  401. -- text alignment: 1
  402. -- font id: 20
  403. -- text size: 18
  404. -- style flags: 0
  405. -- line height: 24
  406. -- part name: RS
  407.  
  408.  
  409. -- part contents for card part 6
  410. ----- text -----
  411. OUT
  412.  
  413. -- part contents for card part 5
  414. ----- text -----
  415. IN
  416.  
  417. -- part contents for card part 10
  418. ----- text -----
  419. I am out of the office
  420.  
  421.  
  422.  
  423.  
  424.  
  425. -- part contents for card part 13
  426. ----- text -----
  427. OUT
  428.  
  429. -- part contents for card part 14
  430. ----- text -----
  431. 3:43 PM
  432.  
  433. -- part contents for card part 15
  434. ----- text -----
  435. 3/22/90
  436.  
  437. -- part contents for card part 21
  438. ----- text -----
  439. This will open the currently selected user to this screen.
  440.  
  441.  
  442. -- part contents for card part 22
  443. ----- text -----
  444. This is where you would save the new, or replaced ShortCut.
  445.  
  446. -- part contents for card part 23
  447. ----- text -----
  448. This is where you would remove the new, or replaced ShortCut.